MacFormat 1997 February/macformat-047.iso/Demos/Simpsons Cartoon Studio™ Demo/Simpsons/Support/dlogdata/save.Dxr/00001.ls

Text File | 1996-08-16 | 761 b | 32 lines

global theSaveDialog, saveDialogBox

on startMovie
  set the exitLock to 1
  set the modal of saveDialogBox to 1
  set theSaveDialog to birth(script "save dialog box parent")
end

on hiliteButton whichSprite
  set hilit to 1
  set theCastNum to the castNum of sprite whichSprite
  set the castNum of sprite whichSprite to theCastNum + 1
  updateStage()
  repeat while the mouseDown
    if rollOver(whichSprite) then
      set the castNum of sprite whichSprite to theCastNum + 1
      set hilit to 1
    else
      set the castNum of sprite whichSprite to theCastNum
      set hilit to 0
    end if
    updateStage()
  end repeat
  set the castNum of sprite whichSprite to theCastNum
  updateStage()
  if hilit then
    return 1
  else
    return 0
  end if
end